/**************************************************** 
 *  Hidden input - returns input but only echoes the 
 *  character c for each input character. Useful
 *  for passwords.    GCW 23/04/04
 ***************************************************/

// For use on Iyonix only

hidden_input(c)
{
 local r,buf;
 r = newvector(8);
 buf = @(newstring(64));
 r[1] = 64;     /* length of buffer           */
 r[2] = 32;     /* lowest character accepted  */
 r[3] = 126;    /* highest character accepted */
 r[0] = buf;
 r[4] = c+(1<<30)+(1<<31);  /* echo character and flags  */
 swi("XOS_ReadLine32",r);  /* RO5 only */
 return($(buf));
}

